with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Triangle is
   Side1: Integer ;
   Side2: Integer ;
   Side3: Integer ;

begin
   Put("Side 1 :");
   Get(Side1);
   New_Line;
   Put("Side 2 :");
   Get(Side2);
   New_Line;
   Put("Side 3 :");
   Get(Side3);
   New_Line;



   if Side1 > Side2 and Side1 > Side3 and Side1 > Side2 + Side3 then
      Put_Line(" not a triangle!");
   else if  Side2 > Side1 and Side2 > Side3 and Side2 > Side1 + Side3 then
      Put_Line(" not a triangle!");
   else if Side3 > Side2 and Side1 < Side3 and Side3 > Side2 + Side1 then
      Put_Line(" not a triangle!");
   else -- it's a triangle
      if Side1 = Side2 and Side2 = Side3 then
         Put_Line("Equilateral OK!");
      else if Side1 = Side2 and not( Side1 = Side3) then
         Put_Line ("Isocele OK!");
      else if Side1 = Side3 and not( Side2 = Side3) then
         Put_Line ("Isocele OK!");
      else if Side2 = Side3 and not (Side2 = Side1) then
         Put_Line ("Isocele OK!");
      else
         Put_Line("Is a triangle !");
      end if;
      end if;
      end if;
      end if;
   end if;
   end if;
   end if;
end Triangle ;




